home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / shiny / SHINY.ZIP / Main.dfm / Main.txt
Encoding:
Text File  |  1997-08-23  |  2.8 KB  |  144 lines
  1. object Form1: TForm1
  2.   Left = 358
  3.   Top = 183
  4.   BorderStyle = bsDialog
  5.   Caption = 'Form1'
  6.   ClientHeight = 453
  7.   ClientWidth = 530
  8.   Color = clSilver
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 63
  19.     Top = 39
  20.     Width = 177
  21.     Height = 16
  22.     Caption = 'TShine Component Demo'
  23.     Font.Charset = DEFAULT_CHARSET
  24.     Font.Color = clNavy
  25.     Font.Height = -13
  26.     Font.Name = 'MS Sans Serif'
  27.     Font.Style = [fsBold]
  28.     ParentFont = False
  29.     Transparent = True
  30.   end
  31.   object Label2: TLabel
  32.     Left = 88
  33.     Top = 72
  34.     Width = 389
  35.     Height = 16
  36.     Caption = 'Creates a shiny spot on the left-top corner of any control.'
  37.     Font.Charset = DEFAULT_CHARSET
  38.     Font.Color = clNavy
  39.     Font.Height = -13
  40.     Font.Name = 'MS Sans Serif'
  41.     Font.Style = [fsBold]
  42.     ParentFont = False
  43.     Transparent = True
  44.   end
  45.   object Label3: TLabel
  46.     Left = 120
  47.     Top = 104
  48.     Width = 341
  49.     Height = 16
  50.     Caption = 'http://www.geocities.com/SiliconValley/Bay/2111/'
  51.     Font.Charset = DEFAULT_CHARSET
  52.     Font.Color = clGray
  53.     Font.Height = -13
  54.     Font.Name = 'MS Sans Serif'
  55.     Font.Style = [fsBold]
  56.     ParentFont = False
  57.     Transparent = True
  58.   end
  59.   object Label4: TLabel
  60.     Left = 168
  61.     Top = 136
  62.     Width = 187
  63.     Height = 16
  64.     Caption = 'unclesisko@geocities.com'
  65.     Font.Charset = DEFAULT_CHARSET
  66.     Font.Color = clGray
  67.     Font.Height = -13
  68.     Font.Name = 'MS Sans Serif'
  69.     Font.Style = [fsBold]
  70.     ParentFont = False
  71.     Transparent = True
  72.   end
  73.   object ShineyRed: TShiney
  74.     Left = 116
  75.     Top = 368
  76.     Width = 100
  77.     Height = 100
  78.     ShineColor = clRed
  79.   end
  80.   object ShineyWhite: TShiney
  81.     Left = 4
  82.     Top = 400
  83.     Width = 40
  84.     Height = 40
  85.     ShineColor = clWhite
  86.   end
  87.   object Button1: TButton
  88.     Left = 56
  89.     Top = 216
  90.     Width = 75
  91.     Height = 25
  92.     Caption = 'Button1'
  93.     TabOrder = 0
  94.   end
  95.   object Button2: TButton
  96.     Left = 232
  97.     Top = 216
  98.     Width = 75
  99.     Height = 25
  100.     Caption = 'Button2'
  101.     TabOrder = 1
  102.   end
  103.   object Button3: TButton
  104.     Left = 128
  105.     Top = 312
  106.     Width = 75
  107.     Height = 25
  108.     Caption = 'Button3'
  109.     TabOrder = 2
  110.   end
  111.   object Button4: TButton
  112.     Left = 376
  113.     Top = 304
  114.     Width = 75
  115.     Height = 25
  116.     Caption = 'Button4'
  117.     TabOrder = 3
  118.   end
  119.   object ShineyYellow: TShiney
  120.     Left = 280
  121.     Top = 408
  122.     Width = 40
  123.     Height = 40
  124.     ShineColor = 8454143
  125.   end
  126.   object Timer1: TTimer
  127.     OnTimer = Timer1Timer
  128.     Left = 216
  129.     Top = 408
  130.   end
  131.   object Timer2: TTimer
  132.     Interval = 500
  133.     OnTimer = Timer2Timer
  134.     Left = 328
  135.     Top = 408
  136.   end
  137.   object Timer3: TTimer
  138.     Interval = 100
  139.     OnTimer = Timer3Timer
  140.     Left = 48
  141.     Top = 408
  142.   end
  143. end
  144.